home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / hlp_auth / blun20 / dialog.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-01-10  |  6.9 KB  |  199 lines
  1. VERSION 2.00
  2. Begin Form Dialog 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Application Dialog"
  5.    ClientHeight    =   4875
  6.    ClientLeft      =   1455
  7.    ClientTop       =   1440
  8.    ClientWidth     =   6225
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Height          =   5280
  12.    Left            =   1395
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   4875
  17.    ScaleWidth      =   6225
  18.    Top             =   1095
  19.    Width           =   6345
  20.    Begin BALLOON Balloon1 
  21.       Prop16          =   "Click for About Box"
  22.       BackColor       =   &H0080FFFF&
  23.       BalloonArrow    =   0   'False
  24.       Prop24          =   0   'False
  25.       ForeColor       =   &H00000000&
  26.       InverseVideo    =   0   'False
  27.       Left            =   3240
  28.       Top             =   3480
  29.    End
  30.    Begin DriveListBox Drive1 
  31.       Height          =   315
  32.       Left            =   3240
  33.       TabIndex        =   11
  34.       Top             =   2400
  35.       Width           =   2775
  36.    End
  37.    Begin DirListBox Dir1 
  38.       Height          =   930
  39.       Left            =   360
  40.       TabIndex        =   10
  41.       Top             =   3600
  42.       Width           =   2295
  43.    End
  44.    Begin CommandButton Btn_Help 
  45.       Caption         =   "Help Balloons"
  46.       Height          =   375
  47.       Left            =   4320
  48.       TabIndex        =   9
  49.       Top             =   3600
  50.       Width           =   1575
  51.    End
  52.    Begin FileListBox File1 
  53.       Height          =   1005
  54.       Left            =   360
  55.       TabIndex        =   8
  56.       Top             =   2400
  57.       Width           =   2295
  58.    End
  59.    Begin ComboBox Combo1 
  60.       Height          =   300
  61.       Left            =   3240
  62.       TabIndex        =   7
  63.       Text            =   "Combo1"
  64.       Top             =   1800
  65.       Width           =   2775
  66.    End
  67.    Begin TextBox Text2 
  68.       Height          =   495
  69.       Left            =   3240
  70.       TabIndex        =   6
  71.       Text            =   "Text2"
  72.       Top             =   1080
  73.       Width           =   2775
  74.    End
  75.    Begin TextBox Text1 
  76.       Height          =   495
  77.       Left            =   3240
  78.       TabIndex        =   5
  79.       Text            =   "Text1"
  80.       Top             =   360
  81.       Width           =   2775
  82.    End
  83.    Begin Frame Frame1 
  84.       Caption         =   "Frame1"
  85.       Height          =   1935
  86.       Left            =   360
  87.       TabIndex        =   1
  88.       Top             =   240
  89.       Width           =   2295
  90.       Begin OptionButton Option3 
  91.          Caption         =   "Option3"
  92.          Height          =   255
  93.          Left            =   360
  94.          TabIndex        =   4
  95.          Top             =   1440
  96.          Width           =   1455
  97.       End
  98.       Begin OptionButton Option2 
  99.          Caption         =   "Option2"
  100.          Height          =   255
  101.          Left            =   360
  102.          TabIndex        =   3
  103.          Top             =   960
  104.          Width           =   1455
  105.       End
  106.       Begin OptionButton Option1 
  107.          Caption         =   "Option1"
  108.          Height          =   255
  109.          Left            =   360
  110.          TabIndex        =   2
  111.          Top             =   480
  112.          Width           =   1455
  113.       End
  114.    End
  115.    Begin CommandButton BTN_Close 
  116.       Caption         =   "Close"
  117.       Height          =   375
  118.       Left            =   4320
  119.       TabIndex        =   0
  120.       Top             =   4200
  121.       Width           =   1575
  122.    End
  123. Sub Balloon1_BalloonClick (hwndAtMouse As Integer)
  124. ' PURPOSE:  hwndAtMouse is the control the mouse is over
  125. ' COMMENTS: pass back the help text
  126. '           shows how to programmatcially end a session
  127. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  128. Dim Msg As String
  129. Dim CRLF As String
  130.     CRLF = Chr$(13) + Chr$(10)
  131.     Select Case hwndAtMouse
  132.         Case Me.hWnd
  133.             Exit Sub    ' do nothing
  134.         
  135.         Case Btn_Help.hWnd
  136.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Btn_Help."
  137.         
  138.         Case BTN_Close.hWnd
  139.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control BTN_Close."
  140.         
  141.         Case Text1.hWnd
  142.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Text1."
  143.         
  144.         Case Text2.hWnd
  145.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Text2."
  146.         
  147.         Case Combo1.hWnd
  148.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Combo1."
  149.         
  150.         Case File1.hWnd
  151.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control File1."
  152.         
  153.         Case Dir1.hWnd
  154.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Dir1."
  155.             
  156.         Case Drive1.hWnd
  157.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Drive1."
  158.         Case Frame1.hWnd
  159.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Frame1."
  160.         
  161.         Case Option1.hWnd
  162.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Option1."
  163.         
  164.         Case Option2.hWnd
  165.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "  The mouse is over the control Option2."
  166.         
  167.         Case Option3.hWnd
  168.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "  The mouse is over the control Option3."
  169.         Case Else
  170.         
  171.         End Select
  172. End Sub
  173. Sub Balloon1_BalloonSessionEndClick ()
  174. ' PURPOSE:  Notify the application when the balloon goes off screen
  175. ' Comments: Use this event to clean up the application after a balloon seesion
  176. '           USE IS OPTIONAL
  177. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  178. End Sub
  179. Sub BTN_Close_Click ()
  180.     Hide
  181. End Sub
  182. Sub Btn_Help_Click ()
  183.     ' initial help text string
  184.     ' here we generate the text internally
  185.     '
  186.     ' Initial text can be left blank, if blank then
  187.     ' Balloon.vbx control will display an internal init message
  188.     Balloon1.MessageText = "Dialog form. Enter the desired parameters. Move mouse over control that you would like help on."
  189.     Balloon1.Action = 20     ' Balloon_START = 20
  190. End Sub
  191. Sub Form_Load ()
  192.     If Me.WindowState = 0 Then
  193.         Me.Top = 0      ' Balloon_Form.Top
  194.         Me.Left = 0     ' Balloon_Form.Left
  195.         Me.Width = 6345
  196.         Me.Height = 5280
  197.     End If
  198. End Sub
  199.